home *** CD-ROM | disk | FTP | other *** search
/ MacFormat España 24 / MacFormat n. 24 (Spain) / MacFormat 24.bin / Demos / Jungle Activated! / JungleActivated Demo / jung DEMO d / 00190_Juke Box- Click On.ls < prev    next >
Encoding:
Text File  |  1996-10-14  |  927 b   |  36 lines
  1. on mouseUp
  2.   global gFragment1, gFragment2, gFragment3, gFragment4, gFragmentCast
  3.   set gWhereFrom to the frameLabel
  4.   set the volume of sound 1 to 255
  5.   set WhichFragment to the clickOn
  6.   set FragmentNumber to the number of cast "Fragment 1"
  7.   if WhichFragment = 21 then
  8.     if gFragment1 = 0 then
  9.       set gFragment1 to 1
  10.       set the volume of sound 1 to 255
  11.       puppetSound("ZAP.AIF")
  12.     end if
  13.   end if
  14.   if WhichFragment = 20 then
  15.     if gFragment2 = 0 then
  16.       set gFragment2 to 1
  17.       set the volume of sound 1 to 255
  18.       puppetSound("ZAP.AIF")
  19.     end if
  20.   end if
  21.   if WhichFragment = 19 then
  22.     if gFragment3 = 0 then
  23.       set gFragment3 to 1
  24.       set the volume of sound 1 to 255
  25.       puppetSound("ZAP.AIF")
  26.     end if
  27.   end if
  28.   if WhichFragment = 18 then
  29.     if gFragment4 = 0 then
  30.       set gFragment4 to 1
  31.       set the volume of sound 1 to 255
  32.       puppetSound("ZAP.AIF")
  33.     end if
  34.   end if
  35. end
  36.